Funkce na zaokrouhlovani

Otázka od: Karel Pecinka

3. 8. 2004 18:52

Zdravim konfer,

nevite nekdo o obecne funkci, ktera zaokrouhli realny cislo tak, jak si
budu prat (napr. na desetiny, na padesatniky, cela cisla), a to nejlepe
i s volbou jestli nahoru, dolu a nebo podle pravidel? Neco podobnyho
jako je zaokrouhlovaci funkce v Excelu.

Diky za tipy.

Karel, D5

-------------------------------
Ing. Karel Pecinka
Sofico-CZ, v. o. s.
U Vodarny 5
568 02 Svitavy

tel: +420 608 110 949
email: k.pecinka@ordis.cz
WWW: http://www.ordis.cz

Odpovedá: Jirka Virt

3. 8. 2004 21:00

function RoundXDec(const Cislo:Extended;DesMist:integer):Extended;
begin
Result := Round(Cislo*IntPower(10,DesMist))/IntPower(10,DesMist);
end;

Jirka Virt